What PC? 1997 May/WPCMAY97.ISO/orlydemo/orlydata/orlydemo.dxr/00472_Pref File Handlers.ls

Text File | 1996-11-03 | 2.1 KB | 101 lines

global gUtilObj, gFileObj, gItemDelimiter, gWindowsPath, gSystemPath, gPrefName, gPrefPath, gFileText, gExeName, gStartTicks, filesep

on checkPrefFile fileName, exeName, introLabel, menuLabel
  if objectp(gUtilObj) then
    gUtilObj(mdispose)
  end if
  set gPrefName to fileName
  if the machineType = 256 then
    set gExeName to "glueapp.exe"
    createPrefPath()
    readPrefFile()
    deletePrefFile()
    testVar(introLabel, menuLabel)
  else
    nothing()
  end if
end

on externalButtonAction
  writePrefFile()
  if objectp(gFileObj) then
    gFileObj(mdispose)
  end if
  if the machineType = 256 then
    open(the pathName & gExeName, the pathName & "_BugEatr.exe")
    quit()
  else
    go("MainMenu")
  end if
end

on createPrefPath
  if objectp(gUtilObj) then
    gUtilObj(mdispose)
  end if
  if the machineType = 256 then
    set gUtilObj to MovUtils(mnew)
    set gItemDelimiter to "\"
    set gWindowsPath to gUtilObj(mGetWindowsPath)
    set gPrefPath to gWindowsPath & gItemDelimiter
  else
    nothing()
  end if
end

on writePrefFile
  if objectp(gFileObj) then
    gFileObj(mdispose)
  end if
  set gFileObj to FileIO(mnew, "write", gPrefPath & gPrefName)
  if the machineType = 256 then
    set todayDate to the date
    gFileObj(mWriteString, todayDate)
    gFileObj(mdispose)
  else
    nothing()
  end if
end

on readPrefFile
  if objectp(gFileObj) then
    gFileObj(mdispose)
  end if
  set gFileObj to FileIO(mnew, "read", gPrefPath & gPrefName)
  if objectp(gFileObj) then
    set gFileText to gFileObj(mReadFile)
  else
    set gFileText to EMPTY
  end if
  if objectp(gFileObj) then
    gFileObj(mdispose)
  end if
end

on deletePrefFile
  if objectp(gFileObj) then
    gFileObj(mdispose)
  end if
  set gFileObj to FileIO(mnew, "read", gPrefPath & gPrefName)
  if objectp(gFileObj) then
    gFileObj(mDelete)
  end if
end

on testVar introLabel, menuLabel
  if gFileText = EMPTY then
    go(introLabel)
  else
    go(menuLabel)
  end if
end

on XobjCleanup
  if objectp(gFileObj) then
    gFileObj(mdispose)
  end if
  if objectp(gUtilObj) then
    gUtilObj(mdispose)
  end if
end